knitr::opts_chunk$set(echo = TRUE)
library(DT)
library(tidyverse)
library(crosstalk)
library(plotly)
Registered S3 method overwritten by 'data.table':
method from
print.data.table
Attaching package: ‘plotly’
The following object is masked from ‘package:ggplot2’:
last_plot
The following object is masked from ‘package:stats’:
filter
The following object is masked from ‘package:graphics’:
layout
genes_df <- read_tsv("each_gene_in_one_row.tsv")
Rows: 96 Columns: 23
── Column specification ──────────────────────────────────────────────────────────────────────────────────────────────────────
Delimiter: "\t"
chr (16): Genes, Gene_name, CDS_Products, Gff_ontology_terms, Transcript_IDs, UniProtKB_Swiss_Prot, KEGG, PFAM, InterPro, ...
dbl (7): baseMean, log2FoldChange, lfcSE, stat, pvalue, padj, GeneID
ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
genes_ct <- SharedData$new(genes_df, key = ~Genes)
gg <- ggplot(genes_df, aes(log2FoldChange, padj)) + geom_point()
gg

ggplotly(gg)
LS0tCnRpdGxlOiAiUHJhY3RpY2luZyBDcm9zc1RhbGsiCm91dHB1dDogaHRtbF9ub3RlYm9vawotLS0KCmBgYHtyfQprbml0cjo6b3B0c19jaHVuayRzZXQoZWNobyA9IFRSVUUpCmxpYnJhcnkoRFQpCmxpYnJhcnkodGlkeXZlcnNlKQpsaWJyYXJ5KGNyb3NzdGFsaykKbGlicmFyeShwbG90bHkpCmBgYAoKYGBge3J9CmdlbmVzX2RmIDwtIHJlYWRfdHN2KCJlYWNoX2dlbmVfaW5fb25lX3Jvdy50c3YiKQpgYGAKCgoKYGBge3J9CmdlbmVzX2N0IDwtIFNoYXJlZERhdGEkbmV3KGdlbmVzX2RmLCBrZXkgPSB+R2VuZXMpCmdnIDwtIGdncGxvdChnZW5lc19kZiwgYWVzKGxvZzJGb2xkQ2hhbmdlLCBwYWRqKSkgKyBnZW9tX3BvaW50KCkKZ2cKYGBgCgoKYGBge3J9CmdncGxvdGx5KGdnKQpgYGAKCgoKCgo=